home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cpp_libs / answrbok / 5_11.lha / 5_11 / 5_11b.c < prev    next >
Text File  |  1993-08-08  |  546b  |  25 lines
  1. * Copyright (c) 1990 by AT&T Bell Telephone Laboratories, Incorporated. */
  2. * The C++ Answer Book */
  3. * Tony Hansen */
  4. * All rights reserved. */
  5. / included within prim()        DELETE
  6. ase NAME:
  7.    get_token(input, variables);    // skip name
  8.    ret->cvalue = curr_tok.cvalue;
  9.  
  10.    if (curr_tok.type == ASSIGN)
  11. {
  12. get_token(input, variables);    // skip '='
  13. ret->type = ASSIGN;
  14. ret->left = get_expr(input, variables);
  15. }
  16.  
  17.    else
  18. ret->type = NAME;
  19.    return ret;
  20.  
  21. ase SEMICOLON:
  22.    ret->type = SEMICOLON;
  23.    get_token(input, variables);    // skip ';'
  24.    return ret;
  25.